Public Class Proveedor

    Dim _PROVCOD, _PROVDES, _PROVDCORTA, _PROACT As String

    Sub New()

    End Sub

    Sub New(ByVal codigo As String, ByVal descripcion As String, ByVal dcorta As String, ByVal activo As String)
        Me._PROVCOD = codigo
        Me._PROVDES = descripcion
        Me._PROVDCORTA = dcorta
        Me._PROACT = activo
    End Sub

    Public Property PROV_Codigo() As String
        Get
            Return _PROVCOD
        End Get
        Set(ByVal value As String)
            _PROVCOD = value
        End Set
    End Property

    Public Property PROV_Descripcion() As String
        Get
            Return _PROVDES
        End Get
        Set(ByVal value As String)
            _PROVDES = value
        End Set
    End Property

    Public Property PROV_DesCorta() As String
        Get
            Return _PROVDCORTA
        End Get
        Set(ByVal value As String)
            _PROVDCORTA = value
        End Set
    End Property

    Public Property PROV_Activo() As String
        Get
            Return _PROACT
        End Get
        Set(ByVal value As String)
            _PROACT = value
        End Set
    End Property

End Class
